10 POKE 53280,0:POKE 53281,0:PRINT CHR$(147):BT=100:FL=1:I=1:L=39
20 RN=RND(-TI/101)
30 C$=CHR$(18)+CHR$(160)
40 INPUT "HOW MANY BARS (MAX. 15)";NB:IF NB<1 OR NB>15 THEN PRINT"[145][145][145]":GOTO40
50 PRINT "[147]PRESS SPACE BAR WHEN YOU SEE SOMETHING."
60 PRINT "NUMBER AT END OF BAR IS REACTION TIME":PRINT "IN SECONDS. ";
70 IF GL=0 THEN GL=1:PRINT "PRESS SPACE BAR TO START.";:GOTO 90
80 PRINT "PRESS SPACE BAR TO START AGAIN."
90 GET A$:IF A$<>" " THEN 90
100 PRINT CHR$(147):FOR U=1 TO INT(800*RND(1))+30:NEXT:POKE 198,0:PRINT "";
110 PRINT C$;:TI$="000000"
120 K=K+I:GET A$:IF A$<>" " THEN PRINT C$;:IF K<L THEN 120
130 IF K=L THEN K=0:PRINT:PRINT "TOO LATE!":GOTO 230
140 J=TI:K=0
150 J=J/60:J=INT(J*100+.5)/100:PRINT J;:PRINT
160 IF PEEK(197)=60 THEN 160
170 POKE 198,0:TL=TL+J
180 D=D+1:IF D=NB THEN 240
190 IF FL=0 THEN FL=1:PRINT "";:GOTO 210
200 FL=0:PRINT "[159]";
210 FOR U=1 TO INT(200*RND(1))+20:GET B$:IF B$<>" " THEN NEXT:GOTO 110
220 IF B$=" " THEN PRINT "TOO SOON!
230 D[178]0:TL[178]0:FL[178]1:[137] 70
240 AV[178]TL[173]D:AV[178][181](AV[172]100[170].5)[173]100
250 [153] "AVERAGE REACTION TIME ="AV"SEC."
260 [139] AV[179]BT [167] [153] "BEST TIME ="AV"SEC.":BT[178]AV:[137] 230
270 [153] "BEST TIME ="BT"SEC."
280 [137] 230